home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr49 / vscreen1.zip / VSCREEN.INC < prev    next >
Text File  |  1992-09-07  |  2KB  |  49 lines
  1. /*
  2.       Prog.Name : PULLDOWN.INC
  3.       Copyright : (c) 1991 by SUPPORT-EDV-Beratung GbR
  4.                               Postfach 44 13
  5.                               6100 Darmstadt 1
  6.       
  7.       Note : Use for PULLDOWN Tool 1.00 or greater
  8.       -----
  9.              Include File with functions to use PULLDOWN.OBJ
  10. */
  11.    
  12. extern int ScrCnt;                    /* Index Screen Counter */
  13. extern int T_Color;                   /* Textcolor Foreground */
  14. extern int B_Color;                   /* Textcolor Background */
  15. extern Byte Density;                  /* High Video = 1, Low Video = 0 */
  16. extern char Date_[9];                 /* Field for Date TT.MM.JJ */
  17. extern char Time_[6];                 /* Field for Time SS:MM */
  18. extern Byte mouse;                    /* TRUE if mouse detected */
  19.  
  20. extern int Topcolor;             /* Textcolor Pulldown Top   */
  21. extern int Downcolor;            /* Background Pulldown Top  */
  22. extern int Menu_tc;              /* Textcolor Pulldown Text  */
  23. extern int Menu_bc;              /* Background Pulldown Text */
  24. extern int Hightext;             /* Textcolor Pulldown Sign  */
  25. extern int Lowtext;              /* Background Pulldown Sign */
  26.  
  27. int _pd_()
  28. {
  29.   int z;
  30.   signed int retcode;
  31.  
  32.   Topcolor = TOPCOLOR;              /* Textcolor Pulldown Top   */
  33.   Downcolor = DOWNCOLOR;            /* Background Pulldown Top  */
  34.   Menu_tc = MENU_TC;                /* Textcolor Pulldown Text  */
  35.   Menu_bc = MENU_BC;                /* Background Pulldown Text */
  36.   Hightext = HIGHTEXT;              /* Textcolor Pulldown Sign  */
  37.   Lowtext = LOWTEXT;                /* Background Pulldown Sign */
  38.   retcode = Top_Pulldown(Topcolor,Downcolor,HEADLINE);
  39.   if ( retcode == TEXTSUM_FAILURE ) 
  40.     {
  41.       Err25("Too many Text to build Headline --> REDUCE characters",B_YELLOW,RED);
  42.       exit(TEXTSUM_FAILURE);
  43.     }
  44.   retcode = pulldown(PULLDOWNS);
  45. /*  if ( mouse )
  46.     ms_intr(FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,(char far *)ms_null);
  47. */  return(retcode);
  48. }
  49.